Function: (setf vtable-formatter)

(setf\ vtable-formatter) is a byte-compiled function defined in vtable.el.gz.

Signature

(\(setf\ vtable-formatter\) &rest ARGS)

Implementations

(\(setf\ vtable-formatter\) VALUE (THIS vtable)) in `vtable.el'.

Undocumented

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/vtable.el.gz
;; Could not find source code, showing raw function object.
#[128
  "\303\300\304\300!	>\204�\305\306\307\300D\"\210\300\310H\304\300!	>\204#�\305\306\307\300D\"\210\300\311H#\304\300!	>\2046�\305\306\307\300D\"\210\300\312H\313
K!\211<\203H�\314\315#\210
K\203U�\315\316\")\210\317\"\207"
  [#s(cl--generic \(setf\ vtable-formatter\)
		  ((1
		    #s(cl--generic-generalizer
		       eieio--generic-generalizer 50
		       cl--generic-struct-tag
		       #[385 "
\301N\302
!>\205�\303
!\207"
			     [cl-struct-eieio--class-tags cl--class
							  type-of
							  cl--class-allparents]
			     5
			     ("/nix/store/g9awsiwsy0cqwj6a6hb6x6423d8fdbf1-emacs-snapshot/share/emacs/32.0.50/lisp/emacs-lisp/eieio-core.elc"
			      . 38420)])
		    #s(cl--generic-generalizer
		       cl--generic-t-generalizer 0
		       #[385 "\300\207" [nil] 3
			     ("emacs-lisp/cl-generic.elc" . 7946)]
		       #[385 "\300\207" [(t)] 3
			     ("emacs-lisp/cl-generic.elc" . 7971)]))
		   (0
		    #s(cl--generic-generalizer
		       cl--generic-t-generalizer 0
		       #[385 "\300\207" [nil] 3
			     ("emacs-lisp/cl-generic.elc" . 7946)]
		       #[385 "\300\207" [(t)] 3
			     ("emacs-lisp/cl-generic.elc" . 7971)])))
		  (#s(cl--generic-method (t vtable) nil nil
					 #[514 "\300
\301#\207"
					       [eieio-oset formatter]
					       6
					       ("/nix/store/g9awsiwsy0cqwj6a6hb6x6423d8fdbf1-emacs-snapshot/share/emacs/32.0.50/lisp/emacs-lisp/vtable.elc"
						. 13622)]))
		  nil #0)
     cl-struct-cl--generic-tags current-load-list
     cl--generic-make-next-function type-of signal wrong-type-argument
     cl--generic 2 3 1 get-advertised-calling-convention
     set-advertised-calling-convention nil defalias apply]
  8 ("emacs-lisp/cl-generic.elc" . 40085)]